This is the revision history for use ipc::open2; local (*reader, *writer); $pid = open2(\*reader, \*writer, "bc -l"); $sum = 2; for (1 .. 5) { print writer "$sum * $sum\n"; chomp($sum = <reader>); } ; close writer; close reader; waitpid($pid, 0); print "sum in <libera.chat:#esolangs>
factoid_id | subject | copula | predicate | author | namespace |
---|---|---|---|---|---|
12895 | use ipc::open2; local (*reader, *writer); $pid = open2(\*reader, \*writer, "bc -l"); $sum = 2; for (1 .. 5) { print writer "$sum * $sum\n"; chomp($sum = <reader>); } ; close writer; close reader; waitpid($pid, 0); print "sum | is | $sum\n"; | rosa_ | <*:##NULL> |